#!/usr/bin/perl
#     Xepec.ru - социальная сеть
#     Copyright (C) 2008  Fedorchenko Alexander
#
#     This program is free software: you can redistribute it and/or modify
#     it under the terms of the GNU Affero General Public License as
#     published by the Free Software Foundation, either version 3 of the
#     License, or (at your option) any later version.
#
#     This program is distributed in the hope that it will be useful,
#     but WITHOUT ANY WARRANTY; without even the implied warranty of
#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#     GNU Affero General Public License for more details.
#
#     You should have received a copy of the GNU Affero General Public License
#     along with this program.  If not, see <http://www.gnu.org/licenses/>.
#
#     Autor: Fedorchenko Alexander
#     Mail: sos20@list.ru
#     Date: 17/01/2009
#

# global $dbcnx;
# global $dbconvia;
#
# global $MUSIC_DIR;
# global $DOC_ROOT;
# global $SITE_ADDR;
# global $debug;
# global $MESS_DIR;

use DBI;
use CGI::Carp qw ( fatalsToBrowser );

$debug = FALSE;

$PREM_CHMOD = "0755";
$DOC_ROOT = $ENV{"DOCUMENT_ROOT"}."/";
$MUSIC_DIR = '/usr/'.$uname_get.'music';
$SITE_ADDR = "http://ftss.org.ru";
$SITE_NAME = "ftss.org.ru";
$SITE_NAME2 = "ftss.org.ru";
$MESS_DIR = "/jwchat/";
$VERSION = "v. 0.2 &#945;";

##########################################################################################################
##########################################################################################################

$dblocation = "localhost"; # Имя сервера
$dbuser = "site";          # Имя пользователя
$dbpasswd = "***";         # Пароль
$dbname = "site_db";



$dsn = "DBI:mysql:database=$dbname;host=$dblocation;port=3306;mysql_connect_timeout=2;mysql_server_reconnect";
$dbcnx = DBI->connect($dsn, $dbuser, $dbpasswd);
$dbcnx->{mysql_auto_reconnect} = 1;


if (!$dbcnx) # Если дескриптор равен 0 соединение не установлено
{
	print "Content-Type: text/html; charset=utf-8", "\n\n";
	print"<P>В настоящий момент сервер базы данных не доступен, поэтому корректное отображение страницы невозможно. (site)</P>";
	die"<P>В настоящий момент сервер базы данных не доступен, поэтому корректное отображение страницы невозможно. (site)</P>\n";
}

##########################################################################################################
##########################################################################################################



$dblocation_via = "192.168.0.10"; # Имя сервера
$dbuser_via = "site";          # Имя пользователя
$dbpasswd_via = "***";         # Пароль
$dbname_via = "jabber";

$dsn_via = "DBI:mysql:database=$dbname_via;host=$dblocation_via;port=3306;mysql_connect_timeout=2";
$dbcnx_via = DBI->connect($dsn_via, $dbuser_via, $dbpasswd_via);
$dbcnx_via->{mysql_auto_reconnect} = 1;
if (!$dbcnx_via) # Если дескриптор равен 0 соединение не установлено
{
	print "Content-Type: text/html; charset=utf-8", "\n\n";
	print"<P>В настоящий момент сервер базы данных не доступен, поэтому корректное отображение страницы невозможно. (jabber)</P>";
	die"<P>В настоящий момент сервер базы данных не доступен, поэтому корректное отображение страницы невозможно. (jabber)</P>\n";
}
1;
